home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 December / PC Answers December 1995 (disc errors).iso / mxc / flyinf.dir / 00023_s.ls < prev    next >
Encoding:
Text File  |  1995-05-04  |  1.0 KB  |  33 lines
  1. on mouseDown
  2.   global gMovNo, gsliderbar, gVolume
  3.   if the castNum of sprite 15 <> 11 then
  4.     exit
  5.   end if
  6.   if the doubleClick then
  7.     exit
  8.   end if
  9.   if the castType of cast the castNum of sprite 11 = #digitalVideo then
  10.     set the movieTime of sprite 11 to 1
  11.     set the movieRate of sprite 11 to 0
  12.     set the controller of cast the castNum of sprite 11 to 0
  13.   end if
  14.   updateStage()
  15.   set the castNum of sprite 11 to the number of cast getAt(FlyList, 6)
  16.   set the castNum of sprite 10 to cast getAt(FlyList, 5)
  17.   set gMovNo to the number of cast getAt(FlyList, 8)
  18.   preLoadCast(gMovNo)
  19.   set gPalNo to gMovNo + 10
  20.   puppetPalette(gPalNo)
  21.   patchPal()
  22.   set the castNum of sprite 11 to gMovNo
  23.   set the castNum of sprite 14 to 41
  24.   set the controller of cast gMovNo to gsliderbar
  25.   set the video of cast gMovNo to 1
  26.   set the castNum of sprite 8 to 33
  27.   set the castNum of sprite 7 to 22
  28.   set the castNum of sprite 6 to 21
  29.   updateStage()
  30.   set the movieRate of sprite 11 to 1
  31.   set the volume of sprite 11 to gVolume
  32. end
  33.